10 GOSUB50000
20 PRINT:PRINTBE$:PRINT
30 GOTO10
50000 REM *** BEFEHLSEINGABE II ***
50010 POKE198,0:BE$="":PRINT"WAS NUN ? ";
50020 POKE204,0
50030 GETX$:IFX$=""THEN50030
50040 IFPEEK(203)=1ORLEN(BE$)>68THENPRINT" ":POKE204,1:RETURN
50050 I=ASC(X$):IFI<65ORI>90THENIFI<>32ANDI<>20ANDI<>34THEN50030
50060 IFI=20ANDBE$=""THEN50030
50070 IFI=20THENPOKE204,1:PRINT"[157]  [157][157]";:BE$=LEFT$(BE$,LEN(BE$)-1):GOTO50020
50080 PRINTX$;:BE$=BE$+X$:GOTO50030